home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / GSXSAM.ZIP;1 / GSXDEMO.PRG < prev    next >
Encoding:
Text File  |  1993-07-26  |  1.7 KB  |  71 lines
  1. ***************************************************************************
  2. *
  3. * Procedure file: GSXDEMO.PRG
  4. *         System: GenScrnX
  5. *        Version: 1.3
  6. *         Author: Ken R. Levy
  7. *        Company: Jet Propulsion Laboratory
  8. *      Copyright: None (Public Domain)
  9. *
  10. ***************************************************************************
  11. *
  12. * GSXDEMO - Build project LIBRARY.PJX, SAMPLE.PJX and execute README.SPR.
  13. *
  14. PARAMETERS m.build_all
  15. PRIVATE m.build_all,m.lastselect,m.lastdefault,m.progpath
  16.  
  17. SET MESSAGE TO
  18. ACTIVATE SCREEN
  19. CLEAR
  20. IF ATC('.APP',SYS(16,0))>0
  21.   DO README.SPR
  22.   RETURN
  23. ENDIF
  24. IF ATC('GENSCRNX',_GENSCRN)=0
  25.   WAIT "_GENSCRN='GENSCRNX.PRG' must be set in CONFIG.FP or from Command window";
  26.        WINDOW NOWAIT
  27.   RETURN
  28. ENDIF
  29. m.lastdefault=SYS(5)+CURDIR()
  30. m.progpath=ALLTRIM(FULLPATH(' ',SYS(16)))
  31. SET DEFAULT TO (m.progpath)
  32. IF .NOT.FILE('LIBRARY.PJX')
  33.   WAIT "File 'LIBRARY.PJX' does not exist" WINDOW NOWAIT
  34.   SET DEFAULT TO (m.lastdefault)
  35.   RETURN
  36. ENDIF
  37. IF .NOT.FILE('SAMPLE.PJX')
  38.   WAIT "File 'SAMPLE.PJX' does not exist" WINDOW NOWAIT
  39.   SET DEFAULT TO (m.lastdefault)
  40.   RETURN
  41. ENDIF
  42. IF .NOT.FILE('README.SPR')
  43.   m.build_all=.T.
  44. ENDIF
  45. IF m.build_all
  46.   m.lastselect=SELECT()
  47.   SELECT 0
  48.   USE SAMPLE.PJX
  49.   REPLACE ALL TIMESTAMP WITH 0 FOR UPPER(TYPE)=='S'
  50.   USE
  51.   SELECT (m.lastselect)
  52.   WAIT 'Building project LIBRARY...' WINDOW NOWAIT
  53.   BUILD PROJECT LIBRARY
  54. ENDIF
  55. WAIT 'Building project SAMPLE...' WINDOW NOWAIT
  56. BUILD PROJECT SAMPLE
  57. WAIT CLEAR
  58. SET MESSAGE TO
  59. ACTIVATE SCREEN
  60. IF FILE('README.SPR')
  61.   DO README.SPR
  62. ELSE
  63.   WAIT "File 'README.SPR' does not exist" WINDOW NOWAIT
  64. ENDIF
  65. ACTIVATE SCREEN
  66. CLEAR
  67. SET DEFAULT TO (m.lastdefault)
  68. RETURN 
  69.  
  70. * END GSXDEMO
  71.